home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 326-350 / disk_339 / pcq / examples / wherefrom.p < prev    next >
Text File  |  1992-05-06  |  375b  |  19 lines
  1. Program WhereFrom;
  2.  
  3. {$I ":Include/DOS.i"}
  4.  
  5. var
  6.     stdfile : FileHandle;
  7.  
  8. begin
  9.     { Calling Input() will always give you the filehandle of standard
  10.       input, since that's where the startup code gets it from }
  11.  
  12.     stdfile := DOSInput();
  13.     if IsInteractive(stdfile) then
  14.     writeln('Input is coming from the console.')
  15.     else
  16.     writeln('Input is comming from a file.');
  17. end.
  18.  
  19.